Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Werte aus 2 Spalten vergleichen -> nicht doppelt, doppelt, mehrfach |
20.06.2017 17:04:33 |
Rene |
|
|
|
20.06.2017 20:39:03 |
Gast59925 |
|
|
|
21.06.2017 06:42:31 |
Gast71344 |
|
|
Von:
Rene |
Datum:
20.06.2017 17:04:33 |
Views:
1105 |
Rating:
|
Antwort:
|
Thema:
Werte aus 2 Spalten vergleichen -> nicht doppelt, doppelt, mehrfach |
Servus zusammen,
ich hab 2 verschiedene Spalten A und B in denen ein bestimmter Text steht.
Diese sollen verglichen werden und die Art der Häufigkeit in einer extra Spalte dargestellt werden.
Mittels VBA hab ich nur ein farbige Hinterlegung von DUPLIKATEN hinbekommen (nicht jedoch wenn z.B. in Spalte B ein Wert 2x oder öfter vorkommt)-> VBA ist gewünscht als Lösung
Außerdem hab ich es mittels Pivot Tabelle probiert, funktioniert aber auch nicht richtig.
Bei manchen Werten funktioniert es, bei anderen nicht (auf Schreib und Zeichenfehler überprüft)
Freu mich über jede Idee! :D
Option Explicit ' Variablendefinition erforderlich
Sub Tabellen_Vergleich02()
Dim LoI As Long ' 1. Schleifenvariable
Dim LoJ As Long ' 2. Schleifenvariable
Dim LoLetzte1 As Long ' Variable letzte Zeile in Spalte A
Dim LoLetzte2 As Long ' Variable letzte Zeile in Spalte B
Dim BoNein As Boolean ' Kennzeichen ob schon markiert
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With Worksheets("Tabelle1") ' letzte Zeile Spalte A und B in Tabelle1
LoLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
.Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
LoLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
.Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
End With
For LoI = 1 To LoLetzte1 ' 1. Schleife alle Werte Spalte A
For LoJ = 1 To LoLetzte2 ' 2. Schleife alle Werte Spalte B
' Leerzellen nicht kennzeichnen
If Worksheets("Tabelle1").Cells(LoI, 1) <> "" Then
If Worksheets("Tabelle1").Cells(LoI, 1) = _
Worksheets("Tabelle1").Cells(LoJ, 2) Then
Worksheets("Tabelle1").Cells(LoJ, 2).Interior.Color = 65535
BoNein = True ' Wert wurde in Spalte A gekennzeichnet
End If
Else
BoNein = True ' Leerzelle wird nicht gekennzeichnet
End If
Next LoJ
If BoNein = False Then ' es wurde keine Zelle gekennzeichnet
Worksheets("Tabelle1").Cells(LoI, 1).Interior.Color = 65280
End If
BoNein = False ' Kennzeichen zurücksetzen
Next LoI
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
End Sub
Viele Grüße
René |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Werte aus 2 Spalten vergleichen -> nicht doppelt, doppelt, mehrfach |
20.06.2017 17:04:33 |
Rene |
|
|
|
20.06.2017 20:39:03 |
Gast59925 |
|
|
|
21.06.2017 06:42:31 |
Gast71344 |
|
|